﻿Namespace Forms.List
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class frmDiplomaEarnedList
    Inherits frmBaseGrid

#Region "Designer"
    
	'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
     End Sub
     
	 Friend WithEvents ucDiplomaEarnedList As ucDiplomaEarnedList

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
            Me.ucDiplomaEarnedList = New IIC.ucDiplomaEarnedList()
            Me.pnlGrid.SuspendLayout()
            Me.SuspendLayout()
            '
            'pnlGrid
            '
            Me.pnlGrid.Controls.Add(Me.ucDiplomaEarnedList)
            Me.pnlGrid.Location = New System.Drawing.Point(0, 53)
            Me.pnlGrid.Size = New System.Drawing.Size(760, 389)
            '
            'ucDiplomaEarnedList
            '
            Me.ucDiplomaEarnedList.Dock = System.Windows.Forms.DockStyle.Fill
            Me.ucDiplomaEarnedList.Location = New System.Drawing.Point(0, 0)
            Me.ucDiplomaEarnedList.Name = "ucDiplomaEarnedList"
            Me.ucDiplomaEarnedList.Size = New System.Drawing.Size(760, 389)
            Me.ucDiplomaEarnedList.TabIndex = 0
            '
            'frmDiplomaEarnedList
            '
            Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
            Me.ClientSize = New System.Drawing.Size(760, 442)
            Me.Name = "frmDiplomaEarnedList"
            Me.ShowConfigButton = True
            Me.ShowExcelButton = True
            Me.ShowPrintButton = True
            Me.ShowSearch = True
            Me.Text = "Diploma Earned List"
            Me.Controls.SetChildIndex(Me.pnlGrid, 0)
            Me.pnlGrid.ResumeLayout(False)
            Me.ResumeLayout(False)

        End Sub

#End Region

#Region "Standard Code"
	
	Private Sub frmDiplomaEarnedList_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
				Handles Me.Load

		
        Me.grdData.loadGrid()

    End Sub

	''' <summary>
	''' This function is common to all forms that inherit from class frmBaseGrid
	''' It priovides a common name to the underlying grid control that shows the records
	''' </summary>
	Public Overrides Function grdData() As org.codegen.win.controls.Grid.CGBaseGrid
        return me.ucDiplomaEarnedList.grdDiplomaEarned
    End Function

        Protected Sub DeleteRecordConfirmed(ByVal sender As System.Object) Handles Me.gridDeleteRecordConfirmed

            Dim m As New DiplomaEarnedDBMapper
            Dim mo As DiplomaEarned = m.findByKey(Me.grdData.IdValue)
            Call m.delete(mo)

        End Sub

#End Region

#Region "custom code"

        Public Sub setFilterDiplomaTypeId(ByVal value As Integer?, _
                                          ByVal dname As String)

            Me.ucDiplomaEarnedList.DiplomaTypeId.Visible = False
            CType(Me.grdData, Grid.CGSQLGrid).gpWhereclause = _
                    "DiplomaTypeId=" & CStr(value.GetValueOrDefault)
            Me.Text = "Student List that Earned Diploma " & dname

        End Sub

#End Region
End Class

End Namespace 

